home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00429.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  969 b   |  47 lines
  1. on exitFrame
  2.   global ActiveHZone, lastRo, activeZone
  3.   set ActiveHZone to "S0"
  4.   set ro to rollOver()
  5.   set thereIsRoll to 0
  6.   if (ro >= 45) and (ro <= 51) then
  7.     set thereIsRoll to 1
  8.     cursor([member "mousePointer", member "mousePointerMask"])
  9.   end if
  10.   case ro of
  11.     2:
  12.       set activeZone to 2
  13.       go("OrdinateurS0a")
  14.     3:
  15.       set activeZone to 3
  16.       go("OrdinateurS0b")
  17.     4:
  18.       set activeZone to 4
  19.       go("OrdinateurS0c")
  20.     30:
  21.       initSprites()
  22.       puppetSprite(1, 1)
  23.       go("OrdinateurVOnLogo1")
  24.     31:
  25.       initSprites()
  26.       puppetSprite(1, 1)
  27.       go("OrdinateurVOnLogo2")
  28.     32:
  29.       initSprites()
  30.       puppetSprite(1, 1)
  31.       go("OrdinateurVOnLogo3")
  32.     33:
  33.       initSprites()
  34.       puppetSprite(1, 1)
  35.       go("OrdinateurVOnLogo4")
  36.     34:
  37.       initSprites()
  38.       puppetSprite(1, 1)
  39.       go("OrdinateurVOnLogo5")
  40.     otherwise:
  41.       go(the frame)
  42.   end case
  43.   if thereIsRoll = 0 then
  44.     cursor(-1)
  45.   end if
  46. end
  47.